Вычислить выражение An = 1^1+2^2+3^3+…+n^n — Pascal(Паскаль)

var
 n,i:integer;
 sum:extended;
begin
 readln(n);
 sum:=0;
  for i:=1 to n do
 begin
  sum:=sum+(exp(i*ln(i)));
 end;
 writeln(sum);
end.